home *** CD-ROM | disk | FTP | other *** search
/ Aminet 38 / Aminet 38 (2000)(Schatztruhe)[!][Aug 2000].iso / Aminet / dev / misc / TCS.lha / TCS / examples / sources / do next >
Encoding:
AmigaDOS Script File  |  2000-06-26  |  302 b   |  17 lines
  1. .key SOU
  2.  
  3. ; SOU = filename (".s" can be omitted) of the source to compile
  4. ;       (none to compile all)
  5.  
  6. If "<SOU>" EQ ""
  7.  List ~(do|s.tmp) LFORMAT "PhxAss %s TO /bin/" >s.tmp
  8.  Execute s.tmp
  9.  Delete s.tmp >NIL:
  10. Else
  11.  If EXISTS <SOU>
  12.   PhxAss <SOU> to /bin/
  13.  Else
  14.   PhxAss <SOU>.s to /bin/
  15.  EndIf
  16. EndIf
  17.